object fmIrsaliyeAktarim: TfmIrsaliyeAktarim
  Tag = 297
  Left = 549
  Top = 203
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #304'rsaliye Aktar'#305'm'
  ClientHeight = 425
  ClientWidth = 491
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object SB: TfcStatusBar
    Left = 0
    Top = 395
    Width = 491
    Height = 30
    Hint = 'Ayr'#305'nt'#305's'#305'n'#305' G'#246'rmek '#304#231'in '#199'ift T'#305'klay'#305'n'#305'z.'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Panels = <
      item
        Font.Charset = TURKISH_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        Name = 'Panel0'
        Tag = 0
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '50'
      end>
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    SimplePanel = False
    SizeGrip = False
    StatusBarText.CapsLock = 'Caps'
    StatusBarText.Overwrite = 'Overwrite'
    StatusBarText.NumLock = 'Num'
    StatusBarText.ScrollLock = 'Scroll'
    OnDblClick = SBDblClick
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 491
    Height = 121
    Align = alTop
    TabOrder = 1
    object Label2: TLabel
      Left = 16
      Top = 28
      Width = 74
      Height = 13
      Caption = 'Aktar'#305'lan Fatura'
      Transparent = True
    end
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 71
      Height = 13
      Caption = 'Toplam  Fatura'
      Transparent = True
    end
    object Label3: TLabel
      Left = 16
      Top = 52
      Width = 64
      Height = 13
      Caption = 'Silinen Fatura'
      Transparent = True
    end
    object bfaturaaktar: TBitBtn
      Left = 16
      Top = 77
      Width = 179
      Height = 31
      Caption = #304#351'leme Ba'#351'la'
      TabOrder = 0
      OnClick = bfaturaaktarClick
    end
    object StaticText1: TStaticText
      Left = 104
      Top = 5
      Width = 91
      Height = 18
      AutoSize = False
      BorderStyle = sbsSunken
      Font.Charset = TURKISH_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object StaticText2: TStaticText
      Left = 104
      Top = 25
      Width = 91
      Height = 18
      AutoSize = False
      BorderStyle = sbsSunken
      Font.Charset = TURKISH_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
    object StaticText3: TStaticText
      Left = 104
      Top = 49
      Width = 91
      Height = 18
      AutoSize = False
      BorderStyle = sbsSunken
      Font.Charset = TURKISH_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
    end
    object Memo1: TMemo
      Left = 216
      Top = 72
      Width = 185
      Height = 33
      TabOrder = 4
      Visible = False
      WordWrap = False
    end
    object Kilitle: TButton
      Left = 208
      Top = 8
      Width = 104
      Height = 57
      Caption = #304'rsaliye Aktar'#305'm Kilitle'
      TabOrder = 5
      TabStop = False
      WordWrap = True
      OnClick = KilitleClick
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 121
    Width = 491
    Height = 136
    Align = alTop
    Caption = '  '#304'ptal Edilen '#304'rsaliyeler  '
    TabOrder = 2
    object wwDBGrid1: TwwDBGrid
      Left = 2
      Top = 15
      Width = 487
      Height = 119
      DisableThemes = False
      Selected.Strings = (
        'FICHENO'#9'12'#9#304'rsaliye No'#9'F'
        'DOCODE'#9'10'#9'Sipari'#351' No'#9'F'
        'INVNO'#9'12'#9'Fatura No'#9'F'
        'specode'#9'11'#9#214'zelKod'#9'F'
        'CANCELLED'#9'10'#9#304'ptal'#9'F'
        'LOGICALREF'#9'10'#9'LOGICALREF')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alClient
      DataSource = Unity_iptalds
      KeyOptions = [dgEnterToTab]
      ReadOnly = True
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      UseTFields = False
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 257
    Width = 491
    Height = 136
    Align = alTop
    Caption = '  Aktar'#305'lan '#304'rsaliyeler  '
    TabOrder = 3
    object wwDBGrid2: TwwDBGrid
      Left = 2
      Top = 15
      Width = 487
      Height = 119
      DisableThemes = False
      Selected.Strings = (
        'FICHENO'#9'10'#9#304'rsaliye no'#9'F'
        'dATE_'#9'12'#9'Tarih'#9'F'
        'DOCODE'#9'10'#9'Sipari'#351' No'#9'F'
        'unitycarikodu'#9'17'#9'CariKodu'#9'F'
        'aciklama'#9'20'#9'A'#231#305'klama'#9'F')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alClient
      DataSource = Unity_FaturaQds
      KeyOptions = [dgEnterToTab]
      ReadOnly = True
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      UseTFields = False
    end
  end
  object Casper_ServisQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    Left = 56
    Top = 192
  end
  object Casper_FaturaQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    SQL.Strings = (
      'Select * from fatura'
      'where bilisno is null')
    Left = 352
    Top = 240
  end
  object Casper_FatharQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    SQL.Strings = (
      'Select * from fathar'
      'where bilisno is null')
    Left = 352
    Top = 189
  end
  object Casper_AmbarQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select id,unityid from depolar'
      '')
    Left = 56
    Top = 248
  end
  object Casper_CariQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      
        'select LOGICALREF=UnityCarikod,CODE=Carikodu,caspercarikod=Carik' +
        'od,OdemeSekli=kargoodeme'
      'from cari'
      'Where UnityCarikod is not null'
      'order by LOGICALREF,Carikod desc'
      ''
      ''
      '')
    Left = 56
    Top = 296
  end
  object Casper_StokQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      
        'select stokkod,ambar,stokkodu,cinsi,izlemeturu,garalinan,garveri' +
        'len,unitystokkod,UstGrupId,GrupId from stok'
      '')
    Left = 56
    Top = 344
  end
  object Casper_SiparisAciklamaQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    Left = 56
    Top = 392
  end
  object Casper_ServisUpdateQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 472
    Top = 336
  end
  object Casper_SiparisFaturalandiQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    Left = 616
    Top = 192
  end
  object Casper_Fatura_iptalQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 360
    Top = 496
  end
  object Casper_Fathar_iptalQ: TADOQuery
    Connection = dm.connect
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'unityid'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select top 30 * from fathar'
      'where bilisno in'
      '('
      'Select bilisno from fatura'
      'where unityid=:unityid'
      ')')
    Left = 360
    Top = 544
  end
  object Casper_OkutulanvarmiQ: TADOQuery
    Connection = dm.connect
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'bilisno'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select * from fatharhar where bilisno=:bilisno')
    Left = 624
    Top = 256
  end
  object Casper_StokTakipQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 472
    Top = 240
  end
  object StokUpdateQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 472
    Top = 384
  end
  object adoKont: TADOQuery
    Connection = dm.connect
    Parameters = <>
    SQL.Strings = (
      'Select * from fatura'
      'where bilisno is null')
    Left = 784
    Top = 184
  end
  object adoDelFat: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'BIL'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'delete from fatura where bilisno=:BIL')
    Left = 848
    Top = 184
  end
  object Unity_FatharQ: TADOQuery
    Connection = dm.Connect_Unity
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 185
    Top = 307
  end
  object Unity_FaturaQ: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltReadOnly
    CommandTimeout = 300
    Parameters = <>
    SQL.Strings = (
      
        '    select top 1 SHIPINFOREF,GRPCODE,TRCODE,LOGICALREF,INVNO AS ' +
        'FICHENO,FICHENO AS unityirsaliyeno,dATE_,FTIME AS TIME_,DOCODE,C' +
        'LIENTREF,PROJECTREF, '
      
        '  unitycarikodu=(SELECT CODE FROM LG_019_CLCARD with (nolock) WH' +
        'ERE LG_019_CLCARD.LOGICALREF=LG_019_01_STFICHE.CLIENTREF), '
      
        ' SOURCEINDEX,GROSSTOTAL,TOTALVAT,NETTOTAL,isnull(GENEXP1,'#39#39')+isn' +
        'ull(GENEXP2,'#39#39')+isnull(GENEXP3,'#39#39')+isnull(GENEXP4,'#39#39') as aciklam' +
        'a, '
      
        'REPORTRATE,REPORTNET,PAYDEF=(SELECT CODE FROM LG_019_PAYPLANS wi' +
        'th (nolock) WHERE LG_019_PAYPLANS.LOGICALREF=LG_019_01_STFICHE.P' +
        'AYDEFREF), '
      
        'TRCURR=isnull((SELECT TRCURR FROM LG_019_01_INVOICE with (nolock' +
        ') where LG_019_01_INVOICE.LOGICALREF=LG_019_01_STFICHE.INVOICERE' +
        'F),0), '
      
        'TRRATE=(SELECT TRRATE FROM LG_019_01_INVOICE with (nolock) where' +
        ' LG_019_01_INVOICE.LOGICALREF=LG_019_01_STFICHE.INVOICEREF) '
      'from LG_019_01_STFICHE with (nolock) '
      '    ')
    Left = 184
    Top = 244
  end
  object Unity_MaxZamanQ: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    Left = 184
    Top = 364
  end
  object Unity_SiparisAciklamaQ: TADOQuery
    Connection = dm.Connect_Unity
    LockType = ltReadOnly
    Parameters = <>
    Left = 184
    Top = 192
  end
  object Unity_iptalQ: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      
        'SELECT top 1  LOGICALREF,specode,CANCELLED,FICHENO,DOCODE,INVNO ' +
        'FROM  LG_019_01_STFICHE')
    Left = 360
    Top = 444
  end
  object SevkiyatHesabiBulQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 616
    Top = 408
  end
  object Timer1xx: TTimer
    Enabled = False
    Interval = 60000
    OnTimer = bfaturaaktarClick
    Left = 552
    Top = 48
  end
  object Unity_iptalds: TDataSource
    DataSet = Unity_iptalQ
    Left = 280
    Top = 337
  end
  object Unity_FaturaQds: TDataSource
    DataSet = Unity_FaturaQ
    Left = 280
    Top = 289
  end
  object Unity_FatharQClone: TADOQuery
    Connection = dm.Connect_Unity
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 272
    Top = 161
  end
  object Casper_Karma: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'UnityStokkod'
        Attributes = [paSigned]
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'Select sk.AnaStokkod,sk.Stokkod,sk.Miktar,'
      
        'Stokkodu=st.Stokkodu,(Case When st.izlemeturu<>'#39'2'#39' and sk.islemy' +
        'eri='#39'M'#39' and sk.OkutulduYap=1  then  '#39'Karma'#39' else st.GrupKodu end' +
        ') GrupKodu,st.UnityStokkod,'
      'UnityAmbar=(Select unityid from Depolar Where id=sk.Ambar)'
      'from TblStokKarma sk'
      'join Stok st on (sk.Stokkod=st.Stokkod)'
      
        'Where Sk.AnaStokkod=(Select Stokkod From Stok Where UnityStokkod' +
        '=:UnityStokkod)')
    Left = 59
    Top = 143
  end
  object Casper_Bilesen: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'UnityStokkod'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 5
        Size = 2
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'Select sb.AnaStokkod,sb.Stokkod,sb.Miktar,'
      'Stokkodu=st.Stokkodu,st.UnityStokkod'
      'from TblStokBilesen sb'
      'join Stok st on (sb.Stokkod=st.Stokkod)'
      
        'Where FDurum=0 AND sb.AnaStokkod=(Select Stokkod From Stok Where' +
        ' UnityStokkod=:UnityStokkod)')
    Left = 132
    Top = 142
  end
  object StokFisiQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 592
    Top = 176
  end
end
